
program hello
    implicit none
    real f,x
    x=1
    f()=x+1
    print *, f

end program

